/* pjshw.t - PROJECT REALIZATION TRANSACTION HISTORY FILE WRITE TRIGGER   */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                    */
/* All rights reserved worldwide.  This is an unpublished work.           */
/*V8:ConvertMode=NoConvert*/
/**************************************************************************/
/*  Program :pjshw.t                                                      */
/*  Author  :Luke Pokic                                                   */
/*  Date    :12/01/99                                                     */
/*  Description: pjsh_hist WRITE trigger program                          */
/*        This WRITE trigger records the last user to create or modify    */
/*        the project transaction history along with the date of          */
/*        modification.                                                   */
/**************************************************************************/
/*                             MODIFY LOG                                 */
/**************************************************************************/
/* REVISION: 9.1      CREATED: 12/01/99  BY: *N006*  Luke Pokic           */
/* REVISION: 9.1     MODIFIED: 08/13/00  BY: *N0KQ* myb                   */

         TRIGGER PROCEDURE FOR WRITE OF PJSH_HIST OLD BUFFER OLD_PJSH_HIST.
         {mfdeclre.i}

         assign
            pjsh_hist.pjsh_mod_userid = global_userid
            pjsh_hist.pjsh_mod_date   = today.
